; Sun Feb 03 21:46:25 EET 2013
; 
;+ (version "3.1.1")
;+ (build "Build 216")


(defclass %3ACLIPS_TOP_LEVEL_SLOT_CLASS "Fake class to save top-level slot information"
	(is-a USER)
	(role abstract)
	(single-slot slotVIsIsGood
		(type SYMBOL)
		(allowed-values FALSE TRUE)
		(default TRUE)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotVisIsGood
		(type SYMBOL)
		(allowed-values FALSE TRUE)
		(default TRUE)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotVisNameVis
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotFlCoef
		(type INTEGER)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotPrsHate
		(type INSTANCE)
;+		(allowed-classes)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot slotPrsIndex
		(type FLOAT)
		(default 0.0)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotFeInten
		(type FLOAT)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotPrsLove
		(type INSTANCE)
;+		(allowed-classes)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotVisName
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(multislot slotFlVision
		(type INSTANCE)
;+		(allowed-classes Vision)
		(create-accessor read-write))
	(multislot slotPrsVision
		(type INSTANCE)
;+		(allowed-classes Vision)
		(cardinality 1 ?VARIABLE)
		(create-accessor read-write))
	(single-slot slotPrsGender
		(type SYMBOL)
		(allowed-values M F)
		(default F)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotPrsAge
		(type INTEGER)
		(range 1 110)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotPrsName
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotWrdIsGood
		(type SYMBOL)
		(allowed-values FALSE TRUE)
		(default TRUE)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotVisIntens
		(type INTEGER)
		(range -5 5)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Person
	(is-a USER)
	(role concrete)(pattern-match reactive)
	(multislot slotPrsVision
		(type INSTANCE)
;+		(allowed-classes Vision)
		(cardinality 1 ?VARIABLE)
		(create-accessor read-write))
	(single-slot slotPrsGender
		(type SYMBOL)
		(allowed-values M F)
		(default F)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotPrsIndex
		(type FLOAT)
		(default 0.0)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotPrsAge
		(type INTEGER)
		(range 1 110)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotPrsName
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot %3ANAME
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write)))

(defclass Vision
	(is-a USER)
	(role abstract)
	(single-slot slotVisNameVis
		(type STRING)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot slotVIsIsGood
		(type SYMBOL)
		(allowed-values FALSE TRUE)
		(default TRUE)
;+		(cardinality 1 1)
		(create-accessor read-write))
	(single-slot %3ANAME
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write))
	(single-slot slotVisIntens
		(type INTEGER)
		(range -5 5)
;+		(cardinality 1 1)
		(create-accessor read-write)))

(defclass Verbal
	(is-a Vision)
	(role abstract))

(defclass Words
	(is-a Verbal)
	(role concrete)(pattern-match reactive))

(defclass Body
	(is-a Vision)
	(role abstract))

(defclass EyeContact
	(is-a Body)
	(role concrete)(pattern-match reactive))

(defclass Smile
	(is-a Body)
	(role concrete)(pattern-match reactive))

(defclass ArmsOpen
	(is-a Body)
	(role concrete)(pattern-match reactive))

(defclass Feel
	(is-a USER)
	(role concrete)(pattern-match reactive)
	(multislot slotFlVision
		(type INSTANCE)
;+		(allowed-classes Vision)
		(create-accessor read-write))
	(single-slot %3ANAME
		(type STRING)
;+		(cardinality 0 1)
		(create-accessor read-write)))